Magnum One

home *** CD-ROM | disk | FTP | other *** search

/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / pgmmenu.arc / CRC1230.DSP < prev next >

Wrap

Text File | 1991-12-04 | 30KB | 481 lines

A* Display File name - CRC1230 A* Used by CRC - CL-Programmer Menu. A PRINT A CA01(01 'Command function 1 request- A ed (Return)') A R HEADING1 A KEEP A LOCK A OVERLAY A 1 2DATE A EDTCDE(Y) A 1 11TIME A 1 25'CRC - Programmer Menu' A DSPATR(HI) A COLOR(BLU) A USER 10A O 1 51 A 1 62'System:' A SYSNAM 8A O 1 70 A R HEADING2 A KEEP A LOCK A OVERLAY A 2 2'Select one of the following:' A 2 64'WSID:' A WSID 10A O 2 70 A R OPTMNU1 A ROLLUP(26 'RollUp menu selection.') A KEEP A OVERLAY A PUTOVR A 3 3'1. Design/Execute DFU app.' A COLOR(TRQ) A 3 35'application , , options' A 4 3'2. Design/Execute QRY app.' A COLOR(TRQ) A 4 35'application , , options' A 5 3'3. Create object.' A COLOR(TRQ) A 5 35'Object name, (type), pgm for CMD, - A (text)' A 6 3'4. Call program.' A COLOR(TRQ) A 6 35'Program name, call parameters, lib- A rary' A 7 3'5. Execute command.' A COLOR(TRQ) A 7 35'Command' A 8 3'6. Submit job.' A COLOR(TRQ) A 8 35'(Job name), (Command) (CF16-Seclv- A l Prompter)' A 9 3'7. Display submitted jobs.' A COLOR(TRQ) A 10 3'8. Edit source.' A COLOR(TRQ) A 10 35'(Srcmbr),(type),(srcfile),(srclib)- A ,(text)' A 11 3'9. Design display format.' A COLOR(TRQ) A 11 35'(Srcmbr),(Srcfile),(Srclib),(Objli- A b),(JobD)' A 12 2'80. Display menu' A COLOR(TRQ) A 13 2'90. Sign Off.' A COLOR(TRQ) A 13 35'(*NoList) (*List)' A 13 79'+' A DSPATR(HI) A R OPTMNU2 A ROLLDOWN(27 'RollDown') A KEEP A OVERLAY A PUTOVR A 3 2'11. Copy source file member.' A 3 35'(Srcmbr), (Srcfile), (Srclib)' A 4 2'12. List source member.' A 4 35'(Srcmbr), (Srcfile), (Srclib)' A 6 2'14. List indented RPGIII' A 6 35'(Srcmbr), (Srcfile), (Srclib)' A 7 2'15. Add library list entry.' A 7 35'(library)' A 8 2'16. Service objects.' A 8 35'(Object-name generic*)' A 9 2'17. Retrieve DDS source.' A 9 35'(Object file)' A 10 2'18. Dsp/Update database file.' A 10 35'(file), (Objlib)' A 11 2'19. Design APF' A 12 2'20. Display file member list.' A 12 35'(filename--generic*)' A 13 2'21. Display database relations.' A 13 35'(filename), (Objlib)' A R PGMMENU A CF03(03 'Command entry display.') A CF04(04 'Prompter requested.') A CF06(06 'Display Messages.') A CF11(11 'Delete Object & Submit.') A CF12(12 'Display/Change LIBL.') A CF16(16 'SBMJOB second lvl prompt.') A CF18(18 'Revert to user defaults.') A CF20(20 'Toggle blinking cursor ind- A icator &IN71.') A CF23(23 'Delete Object, prompt & su- A bmit CRTxxx command.') A CF24(24 'Display/Change Defaults.') A HELP(30 'Display help text.') A SETOF(26) A SETOF(27) A INDTXT(71 'On for Blinking cursor.') A SETOF(81) A SETOF(84) A SETOF(85) A VLDCMDKEY(91 'CMD Key pressed.') A SETOF(92) A INDTXT(92 'Modify-data tag is on.') A 71 BLINK A OVERLAY A 14 2'Types:' A 14 9'ASM, BAS, BASP, BSCF, CBL, CL, CLP- A , CMNF, DDS, DFU, DSPF, FMT, LF,' A COLOR(PNK) A 15 9'MXDF, PF, PLI, PRTF, QRY, RPG, PR- A T, TXT' A COLOR(PNK) A 15 52'If Type:' A 15 61'DOC ' A DSPATR(UL) A 15 66'then EDTDOC' A 16 1'Option:' A COLOR(WHT) A OPTION 2Y 0I 16 9 A 81 DSPATR(RI) A N81 DSPATR(UL) A CHECK(AB) A VALUES(1 2 3 4 5 6 7 8 9 90) A 16 13'Parm:' A PARM 10A B 16 19CHANGE(92) A 83 ERRMSG('Object exists. Press CF11 - A to delete prior to submitting + A job.' 86) A COLOR(WHT) A 16 31'Type:' A TYPE 4A B 16 37CHECK(AB) A VALUES('BAS' 'BASP' 'BSCF' 'CLP' 'C- A MD' 'CMNF' 'DFU' 'DDS' 'DSPF' 'LF' - A 'PF' 'MXDF' 'PRTF' 'RPG' 'RPT' 'FMT- A ' 'PLI' 'TXT' 'CBL' 'QRY' 'CL' 'PL1- A ' 'ASM' 'DOC') A CHANGE(92) A COLOR(WHT) A 16 44'Parm 2:' A PARM2 21A B 16 52COLOR(WHT) A CHANGE(92) A 17 1'Command:' A COMMAND 150A B 17 10CHECK(LC) A 84 ERRMSG('Command syntax in error' 84) A COLOR(WHT) A 19 1'Text:' A TEXT 50A B 19 7CHECK(LC) A CHANGE(92) A COLOR(RED) A 19 59'Log Requests:' A LOG 4A B 19 73VALUES('*YES' '*NO') A 20 1'Src File:' A SRCFILE 10A B 20 11CHECK(VN) A CHECK(AB) A CHANGE(92) A COLOR(WHT) A 20 23'Src Lib:' A SRCLIB 10A B 20 32CHANGE(92) A COLOR(WHT) A 20 44'Obj Lib:' A OBJLIB 10A B 20 53CHECK(VN) A CHECK(AB) A CHANGE(92) A 85 DSPATR(RI) A COLOR(WHT) A 20 64'JobD:' A JOBD 10A B 20 70CHECK(VN) A CHECK(AB) A COLOR(WHT) A 21 1'CF3-Command Entry' A COLOR(TRQ) A 21 20'CF4-Prompt (3,5 & 6 Only)' A COLOR(TRQ) A 21 47'CF6-DSPMSG' A COLOR(TRQ) A 21 59'HELP-Cmd keys & help' A COLOR(TRQ) A R PGMDFT1 A OVERLAY A PUTOVR A 71 BLINK A 2 30'Change defaults' A DSPATR(HI) A 4 6'Keyword' A DSPATR(HI) A 4 18'Default' A DSPATR(HI) A 4 31'Description' A DSPATR(HI) A 5 6'SRCFILE' A XSRCFILE 10A B 5 18CHECK(VN) A 5 31'Source file (blank for default)' A 6 6'SRCLIB' A XSRCLIB 10A B 6 18CHECK(VN) A 6 31'Source library' A 7 6'OBJLIB' A XOBJLIB 10A B 7 18CHECK(VN) A 7 31'Object library' A 8 6'JOBD' A JOBD 10A B 8 18CHECK(VN) A 8 31'Job description' A 9 6'JOBDLIB' A JOBDLIB 10A B 9 18 A 9 31'Job description library' A 10 6'LOG' A XLOG 4A B 10 18VALUES('*YES' '*NO') A 10 31'Log commands requested' A 11 6'SIGNOFF' A SIGNOFF 7A B 11 18VALUES('*LIST' '*NOLIST') A 11 31'Sign off list option' A 12 6'LOGCLPGM' A LOGCLPGM 4A B 12 18VALUES('*YES' '*NO' '*JOB') A 12 31'Log CL program commands (CRTCLPGM)' A 13 6'ALWRTVSRC' A ALWRTVSRC 4A B 13 18VALUES('*YES' '*NO') A 13 31'Allow retrieve CL source' A 14 6'USRPRF' A USRPRF 6A B 14 18VALUES('*OWNER' '*USER' '*ADOPT') A 14 31'Adopt user profile (CRTxxx)' A 15 6'PUBAUT' A PUBAUT 7A B 15 18VALUES('*NORMAL' '*ALL' '*NONE') A 15 31'Public authority (CRTxxx)' A 16 6'RSTDSP' A RSTDSP 4A B 16 18VALUES('*YES' '*NO') A 16 31'Restore display (CRTDSPF)' A 17 6'DFRWRT' A DFRWRT 4A B 17 18VALUES('*YES' '*NO') A 17 31'Defer write until read (CRTDSPF)' A 18 6'SIZE' A SIZE1 8A B 18 18 A 18 31'Initial Physical file size (CRTPF)' A SIZE2 5A B 19 18 A 19 31'-Number of records to increment' A SIZE3 6A B 20 18 A 20 31'-Maximum number of increments' A 22 31'<enter> - next display' A R PGMDFT2 A* 11:57:32 COZZI REL-R07M00 5714-UT1 A OVERLAY A PUTOVR A 71 BLINK A 2 30'Change defaults' A DSPATR(HI) A 4 6'Keyword' A DSPATR(HI) A 4 18'Default' A DSPATR(HI) A 4 31'Description' A DSPATR(HI) A 5 6'MAXRCDS' A MAXRCD 6A B 5 18 A 5 31'Maximun number of records (CRTPRT- A F)' A 6 6'SCHEDULE' A PRTSCH 8A B 6 18VALUES('*JOBEND' '*IMMED' '*FILEEND- A ') A 6 31'Schedule (*JOBEND *FILEEND *IMMED)- A (CRTPRTF)' A 7 6'BLINK' A BLINK 4A B 7 18VALUES('*YES' '*NO') A 7 31'Blinking cursor on' A 8 6'RSTLIBL' A RSTLBL 4A B 8 18VALUES('*YES' '*NO') A 8 31'Restore original library list at C- A MD 1' A 9 6'MBRLIST' A MBRLST 4A B 9 18VALUES('*YES' '*NO') A 9 31'Require ? for EDTSRC member list r- A equest' A 10 6'DFTTYPE' A DFTYPE 4A B 10 18 A 10 31'Default source/object type or *RQD' A 11 6'SHARE' A SHARE 4A B 11 18VALUES('*YES' '*NO') A 11 31'Share open data path of files (CRT- A xF)' A 12 6'OPTIMIZE' A OPTIMIZE 4A B 12 18VALUES('*YES' '*NO') A 12 31'Optimize RPGIII programs' A 22 31'<enter> - change and return' A R HELPTEXT1 A ROLLUP(26 'RollUp menu selection.') A ROLLDOWN(27 'RollDown') A OVERLAY A PUTOVR A 2 29'HELP text request' A 3 28'Command key summary' A DSPATR(HI) A 6 3'CF01 - Return to caller' A 6 40'CF16 - Second level prompting' A 7 47'Prompts CRTxxx & SbmJob commands' A 8 3'CF03 - Command entry' A 8 47'(Options 3 & 6 only)' A 10 3'CF04 - Prompt command' A 10 40'CF18 - Revert to original defaults' A 11 10'(Options 3,5 & 6 only)' A 12 40'CF20 - Toggle blinking cursor on/o- A ff' A 13 3'CF06 - Display message queue' A 14 40'CF23 - Delete object and prompt' A 15 3'CF11 - Delete Object' A 15 47'(Option 3 only)' A 16 10'(Option 3 only)' A 17 40'CF24 - Display/Change menu default- A s' A 18 3'CF12 - Display/Change library list' A 22 10'Roll Up - more' A 23 10'<enter> - programmer menu' A R HELPTEXT2 A ROLLUP(26 'RollUp menu selection.') A ROLLDOWN(27 'RollDown') A OVERLAY A PUTOVR A 2 29'HELP text request' A DSPATR(HI) A 5 3'Command key functions' A 7 3'CF01' A 7 11'Ends PGMMENU by sending an escape - A message.' A 8 11'This causes the control to return - A to the ' A 9 11'previous program in your invocatio- A n stack.' A 11 3'CF03' A 11 11'The command entry screen is displa- A yed.' A 12 11'You may enter any interactive comm- A and.' A 13 11'The command entered are processed - A at the' A 14 11'same invocation as the Programmer - A Menu.' A 17 3'CF04' A 17 11'Prompt the command currently enter- A ed into' A 18 11'the "Command:" area or the CRTxxx - A command.' A 22 11'Roll Up - more' A 23 11'<enter> - programmer menu' A R HELPTEXT3 A ROLLUP(26 'RollUp menu selection.') A ROLLDOWN(27 'RollDown') A OVERLAY A PUTOVR A 2 29'HELP text request' A COLOR(RED) A 4 3'Command key functions' A DSPATR(HI) A COLOR(BLU) A 6 3'CF06' A 6 11'Display workstation message queue.' A 7 11'The DSPMSG command is executed' A 9 3'CF11' A 9 11'If option 3 (CRTxxx) is selected,' A 10 11'and the object exists, then press' A 11 11'this key to delete the object.' A 12 11'You may also press this key prior' A 13 11'to entering the create request,' A 14 11'this will cause the object to be' A 15 11'deleted without further action.' A 17 3'CF12' A 17 11'Retrieves and allows you to change' A 18 11'the current job library list.' A 22 11'Roll Up - more' A 23 11'<enter> - programmer menu' A R HELPTEXT4 A ROLLUP(26 'RollUp menu selection.') A ROLLDOWN(27 'RollDown') A OVERLAY A PUTOVR A 2 29'HELP text request' A COLOR(RED) A 4 3'Command key functions' A DSPATR(HI) A COLOR(BLU) A 6 3'CF16' A 6 11'If option 3,5 or 6 is selected,' A 7 11'then in addition to the function' A 8 11'that occurs when CMD 4 is pressed,- A the' A 9 11'SBMJOB (submit job) command is pro- A mpted.' A 11 3'CF18 Get users defaults and re-- A apply them to menu.' A 13 3'CF20' A 13 11'Toggle blinking cursor option.' A 15 3'CF23' A 15 11'If option 3 (CRTxxx) is selected,' A 16 11'and the object exists, then the ob- A ject' A 17 11'will be deleted after the CRTxxx c- A ommand' A 18 11'is prompted.' A 20 3'CF24' A 20 11'Display/Change current defaults.' A 22 11'Roll Up - more' A 23 11'<enter> - programmer menu' A R HELPTEXT5 A ROLLUP(26 'RollUp menu selection.') A ROLLDOWN(27 'RollDown') A OVERLAY A PUTOVR A 2 29'HELP text request' A COLOR(RED) A 5 2'shift' A DSPATR(RI) A 5 8' CMD ' A DSPATR(RI) A 5 16'CF13' A 5 21'CF14' A 5 26'CF15' A 5 31'CF16' A DSPATR(RI) A 5 36'CF17' A 5 41'CF18' A DSPATR(RI) A 5 46'CF19' A 5 51'CF20' A DSPATR(RI) A 5 56'CF21' A 5 61'CF22' A 5 66'CF23' A DSPATR(RI) A 5 71'CF24' A DSPATR(RI) A 7 8' CMD ' A DSPATR(RI) A 7 16'CF01' A DSPATR(RI) A 7 21'CF02' A 7 26'CF03' A DSPATR(RI) A 7 31'CF04' A DSPATR(RI) A 7 36'CF05' A 7 41'CF06' A DSPATR(RI) A 7 46'CF07' A 7 51'CF08' A 7 56'CF09' A 7 61'CF10' A 7 66'CF11' A DSPATR(RI) A 7 71'CF12' A DSPATR(RI) A 10 2'______' A DSPATR(RI) A 10 9' ' A DSPATR(RI) A 11 2'Print ' A DSPATR(RI) A 11 9'HELP' A DSPATR(RI) A 14 16'The above highlighted command func- A tion keys are active.' A 23 10'<enter> - programmer menu' A R MSGRCD TEXT('Subfile message record.') A SFL SFLMSGRCD(22) A MSGKEY SFLMSGKEY A PGMSGQ SFLPGMQ A R MSGCTL TEXT('Subfile message control.') A 71 BLINK A OVERLAY LOCK FRCDTA A SFLCTL(MSGRCD) SFLSIZ(4) A SFLDSPCTL SFLDSP SFLINZ A SFLPAG(3) A N99 SFLEND A PGMSGQ SFLPGMQ